﻿' en esta ocasión debemos utilizar este espacio de nombres
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine


Partial Public Class Formulario_web13
    Inherits System.Web.UI.Page

    Dim ocnEgresados As New CapaNegocio.Egresados()


    Protected Sub ButtonConsulta_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonConsulta.Click

        Try
            Dim ds As New DataSet
            ds = ocnEgresados.obtenerEgresados(Me.FechaDesde.Text, Me.FechaHasta.Text)

            Dim cr As New ReportDocument

            cr.Load("I:\Universidad\Topicos I\Trabajo Facultad\Solution Facultad\FacultadMatematicaAplicada\CapaPresentacion\CrystalReportEgresados.rpt")
            cr.SetDataSource(ds.Tables("EgresadoAño"))

            cr.SetParameterValue("desde", Me.FechaDesde.Text)
            cr.SetParameterValue("hasta", Me.FechaHasta.Text)

            CrystalReportViewer1.ReportSource = cr

        Catch ex As Exception
            Session.Add("exError", ex)
            Response.Redirect("ManejarError.aspx")
        End Try



    End Sub

    Private Sub FechaHasta_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles FechaHasta.Init
        Me.FechaHasta.Text = DateTime.Now.ToString("d")
    End Sub

End Class